home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 April / 1994-04b.d64 / hires rnd plot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  409b  |  14 lines
  1. 10 rem random number plotting
  2. 15 rem line 50 is initial seeding value
  3. 20 rem line 70 is generator for x
  4. 25 dimi(6000):clr:b=8192:poke53272,peek(53272)or8:poke 53265,peek(53265)or32
  5. 30 fori=1024to2024:pokei,1:next
  6. 40 rem----random number seed----
  7. 50 x=rnd(-ti/1023)
  8. 55 fori=1to1e37
  9. 65 rem----random number generator----
  10. 70 x=rnd(1)*63999
  11. 75 rem----plotting section----
  12. 80 x=int(x):y=int(x/8):pokeb+y,peek(b+y)or2^(7-x+y*8):ifpeek(198)=0thennext
  13. 85 poke198,0:sys198
  14.